Aminet 30/Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso/Aminet/text/misc/2b_Ort.lha/Ort/Instaluj

Text File | 1999-02-10 | 13KB | 465 lines

;Installer script for Ort 1.1
;(c) 1998-1999 Tomasz Bielinski (Siumot/BlaBla)

;init strings
(set #text_sys "Ort wymaga systemu 2.04 wzwyû!\nNie ma sensu instalowaê go na systemie starszym od 2.04 (v37)!")
(set #text_dir "Wskaû miejsce, w którym zainstaluje katalog ORT wraz z programem.")
(set #text_replace "Uwaga! Katalog \"%s\" juû istnieje.\nUaktualniê stare pliki?")
(set #text_replace_help "Katalog \"Ort\" juû istnieje. Jeûeli bëdziesz kontynuowaî instalacjë, wszystkie stare pliki Orta zostanâ zastâpione nowymi.")
(set #text_abort "Instalacja zostaîa przerwana!")
(set #text_copyplikver "Kopiujë plik: \"%s\"")
(set #text_reg "Zainstalowaê kartë rejestracyjnâ?")
(set #text_reg_help "Karta rejestracyjna uîatwia rejestracjë programu. Jeôli jeszcze nie jesteô zarejestrowanym uûytkownikiem, radzë jâ zainstalowaê.")
(set #text_blabla "Zainstalowaê ikonkë def_BlaBla.info?")
(set #text_blabla_help "Standardowa ikonka grupy BlaBla jest wykorzystywana jako AppIcon.")
(set #text_djoiner "Zainstalowaê program DictJoiner?")
(set #text_djoiner_help "DictJoiner umoûliwia doîâczenie wyrazów sîownika globalnego innego uûytkownika Orta, do wîasnego sîownika globalnego.")
(set #text_dic "Instalujë pliki sîownikowe.")
(set #text_dicup_que "Automatycznie dodaê nowe wyrazy do sîownika globalnego,\n czy wygenerowaê plik zawierajâcy nowe wyrazy?")
(set #text_dicup_que_help "Nowe wyrazy ze sîownika globalnego mogâ zostaê automatycznie dodane do twojego sîownika, jednak w takim przypadku nie moûna skontrolowaê dopisywanych wyrazów. Dlatego wîaônie powstaî tryb, który zapisuje wszystkie nowe wyrazy do pliku o nazwie: \"NoweWyrazy.ort\", który po instalacji znajdzie sië w katalogu Orta. Plik naleûy wczytaê do Orta jako tekst do korekty i dodaê wszystkie poprawne wyrazy do sîownika globalnego.")
(set #text_addplik "Czy chcesz abym uruchomiî Orta, wczytaî plik z nowymi wyrazami i uruchomiî korektë? (aby opcja zadziaîaîa musi byê aktywny ARexx)")
(set #text_addplik_help "Na twoje ûyczenie zostaî wygenerowany plik z nowymi wyrazami, który musisz wczytaê do Orta, uruchomiê proces korekty i dodaê poprawne wyrazy. Jeôli chcesz instalator moûe Ci trochë w tym pomóc przez uruchomienie Orta, wczytanie pliku z nowymi wyrazami i uruchomienie procesu korekty. Jeôli nie chcesz teraz dodaê nowych wyrazów to odpowiedz negatywnie na pytanie.")
(set #text_delplik "Czy mam usunâê plik \"NoweWyrazy.ort\"?")
(set #text_delplik_help "Dodaîeô wyrazy z pliku \"NoweWyrazy.ort\" wiëc plik juû nie powinien byê Ci potrzebny i moûna go usunâê.")
(set #text_dicup "Dodajë do plików sîownikowych nowe wyrazy.")
(set #text_rexx "Wskaû skrypty ARexxa, które mam zainstalowaê:")
(set #text_rexx_help (cat "W pakiecie znajdujâ sië skrypty ARexxa, które uîatwiajâ korygowanie tekstu z poziomu niektórych programów. W obecnej wersji dostëpne sâ nastëpujâce skrypty:\n\n"
    "* Dla programu AmiTekst dostëpne sâ trzy skrypty, które uîatwiajâ korygowanie edytowanego dokumentu.\n"
    "* Dla programu CED dostëpne sâ trzy skrypty, które uîatwiajâ sprawdzanie edytowanego dokumentu.\n"
    "* Dla programu Wordworth dostëpne sâ trzy skrypty, które umoûliwiajâ korygowanie tekstu z poziomu tego programu.\n"
    "* Dla programów wykoûystujâcych gadûet TextEditor (np. YAM) dostëpne sâ dwa skrypty, które umoûliwiajâ sygnalizacjë bîëdów, oraz sugerowanie wyrazów podczas pisania tekstu w tym gadûecie.\n"
    "* Dla programów zarzâdzajâcych plikami (np. DOPUS) dostëpny jest skrypt, który umoûliwia wczytanie zaznaczonego zbioru do programu Ort i rozpoczëcie procesu korekty.\n"
    "* Skrypt zakoïczajâcy pracë Orta. Ten skrypt moûna podpiâê pod dowolny program umoûliwiajâcy uruchomienie skryptów ARexxa.\n\n"
    "Dokîadniejsze informacje odnoônie skryptów znajdzieû w dokumentacji pakietu Ort."))
(set #text_rexx_atxt "skrypty dla programu AmiTekst")
(set #text_rexx_ced "skrypty dla programu CED")
(set #text_rexx_ww "skrypty dla programu Wordworth")
(set #text_rexx_te "skrypty dla gadûetu TextEditor")
(set #text_rexx_file "skrypt dla programów zarzâdzajâcych plikami")
(set #text_rexx_quit "skrypt zakoïczajâcy pracë Orta")
(set #text_rexx_dir "Wskaû katalog do którego zainstalujë %s")
(set #text_rexx_skrypt "/*Poniûszâ linië dopisaî skrypt instalacyjny*/")

(set #aktualizuj 0)

(complete 0)

;sprawdzamy wersjë systemu
(if (< (getversion) (* 37 65536))
    (
    (abort #taxt_sys)
    )
)

;pobieramy ôcieûkë dostëpu dla Orta
(set @default-dest (askdir
            (prompt #text_dir)
            (help @askdir-help)
            (default @default-dest)
           )
)

(if (<> (fileonly (@default-dest)) ("Ort"))
  (set @default-dest (tackon @default-dest "Ort"))
)

(complete 10)

;sprawdzamy czy jest to uaktualnienie wersji
(if (exists @default-dest)
  (
    (set #aktualizuj 1)
    (if (NOT (askbool
                   (prompt (#text_replace @default-dest))
                   (help #text_replace_help)
         )   )
         (abort #text_abort)
    )
  )
)

;copy ort
(copylib
  (source "Ort")
  (dest @default-dest)
  (confirm)
  (prompt (#text_copyplikver "Ort"))
  (help @copylib-help)
  (infos)
)
(complete 20)

;copy doc
(copylib
  (source "Ort.guide")
  (dest @default-dest)
  (confirm)
  (prompt (#text_copyplikver "Ort.guide"))
  (help @copylib-help)
  (infos)
)
(complete 30)
(copylib
  (source "AFD-COPYRIGHT")
  (confirm)
  (prompt (#text_copyplikver "AFD-COPYRIGHT"))
  (help @copylib-help)
  (dest @default-dest)
)
(copylib
  (source "AFD-COPYRIGHT.pl")
  (confirm)
  (prompt (#text_copyplikver "AFD-COPYRIGHT.pl"))
  (help @copylib-help)
  (dest @default-dest)
)

(complete 35)

(set #olduser @user-level)

(if (= @user-level 1)
    (user 0)
)

;copy DictJoiner
(if (= (askbool
        (prompt #text_djoiner)
        (help #text_djoiner_help)
          (default 1)
        )
     1)
     (
       (copyfiles
       (source "DictJoiner")
       (dest (tackon @default-dest "DictJoiner"))
       (infos)
       (ALL)
       )
     )
)

;copy BlaBla.info
(if (= 0 (exists "envarc:sys/def_BlaBla.info"))
 (
   (if (= (askbool
          (prompt #text_blabla)
          (help #text_blabla_help)
          (default 1)
          )
       1)
       (
       (copyfiles
         (source "envarc/sys/def_BlaBla.info")
         (dest "envarc:sys")
         (infos)
       )
       )
   )
 )
)
(complete 40)

;copy reg
(if (= (askbool
       (prompt #text_reg)
       (help #text_reg_help)
       (default 1)
       )
    1)
    (
    (copyfiles
      (source "KartaRejestracyjna")
      (dest @default-dest)
      (infos)
    )
    )
)
(complete 50)

(user #olduser)
(SET #rexx_akcja
  (askoptions
    (prompt #text_rexx)
    (help #text_rexx_help)
    (choices #text_rexx_atxt
       #text_rexx_ced
       #text_rexx_ww
       #text_rexx_te
       #text_rexx_file
       #text_rexx_quit)
  )
)

;Skrypty AmiTeksta
(if (bitand #rexx_akcja 1)
    (
    (if (= @user-level 2)
      (
        (set #arexx_dest (askdir
                (prompt (#text_rexx_dir #text_rexx_atxt))
                (help @askdir-help)
                (default "AmiTekst:Skrypty_ARexxa")
                   )
        )
      )
      (
        (set #arexx_dest (tackon @default-dest "ARexx"))
      )
    )
    (IF (=(exists #arexx_dest) 0) (makedir #arexx_dest))
    (textfile
      (append #text_rexx_skrypt)
      (append "\n\nORTFILENAME='")
      (append (tackon @default-dest "Ort"))
      (append "'\n\n")
      (include "arexx/SprBlok.atxt")
      (dest (tackon #arexx_dest "SprBlok.atxt"))
    )
    (textfile
      (append #text_rexx_skrypt)
      (append "\n\nORTFILENAME='")
      (append (tackon @default-dest "Ort"))
      (append "'\n\n")
      (include "arexx/SprWyraz.atxt")
      (dest (tackon #arexx_dest "SprWyraz.atxt"))
    )
    (textfile
      (append #text_rexx_skrypt)
      (append "\n\nORTFILENAME='")
      (append (tackon @default-dest "Ort"))
      (append "'\n\n")
      (include "arexx/SprDokAT.atxt")
      (dest (tackon #arexx_dest "SprDokAT.atxt"))
    )
    )
)
(complete 55)

;Skrypty CEDa
(if (bitand #rexx_akcja 2)
    (
    (if (= @user-level 2)
      (
        (set #arexx_dest (askdir
                (prompt (#text_rexx_dir #text_rexx_ced))
                (help @askdir-help)
                (default "Rexx:")
                  )
        )
      )
      (
        (set #arexx_dest (tackon @default-dest "ARexx"))
      )
    )
    (IF (=(exists #arexx_dest) 0) (makedir #arexx_dest))
    (textfile
      (append #text_rexx_skrypt)
      (append "\n\nORTFILENAME='")
      (append (tackon @default-dest "Ort"))
      (append "'\n\n")
      (include "arexx/SprBlok.ced")
      (dest (tackon #arexx_dest "SprBlok.ced"))
    )
    (textfile
      (append #text_rexx_skrypt)
      (append "\n\nORTFILENAME='")
      (append (tackon @default-dest "Ort"))
      (append "'\n\n")
      (include "arexx/SprLin.ced")
      (dest (tackon #arexx_dest "SprLin.ced"))
    )
    (textfile
      (append #text_rexx_skrypt)
      (append "\n\nORTFILENAME='")
      (append (tackon @default-dest "Ort"))
      (append "'\n\n")
      (include "arexx/SprWyraz.ced")
      (dest (tackon #arexx_dest "SprWyraz.ced"))
    )
    )
)
(complete 60)

;Skrypty Wordwortha
(if (bitand #rexx_akcja 4)
    (
    (if (= @user-level 2)
      (
        (set #arexx_dest (askdir
                (prompt (#text_rexx_dir #text_rexx_ww))
                (help @askdir-help)
                (default "Rexx:")
                 )
        )
      )
      (
        (set #arexx_dest (tackon @default-dest "ARexx"))
      )
    )
    (IF (=(exists #arexx_dest) 0) (makedir #arexx_dest))
    (textfile
      (append #text_rexx_skrypt)
      (append "\n\nORTFILENAME='")
      (append (tackon @default-dest "Ort"))
      (append "'\n\n")
      (include "arexx/WWSprDok.rexx")
      (dest (tackon #arexx_dest "WWSprDok.rexx"))
    )
    (textfile
      (append #text_rexx_skrypt)
      (append "\n\nORTFILENAME='")
      (append (tackon @default-dest "Ort"))
      (append "'\n\n")
      (include "arexx/WWSprParagraf.rexx")
      (dest (tackon #arexx_dest "WWSprParagraf.rexx"))
    )
    (textfile
      (append #text_rexx_skrypt)
      (append "\n\nORTFILENAME='")
      (append (tackon @default-dest "Ort"))
      (append "'\n\n")
      (include "arexx/WWSprWyraz.rexx")
      (dest (tackon #arexx_dest "WWSprWyraz.rexx"))
    )
    )
)
(complete 63)

;Skrypty TextEditora
(if (bitand #rexx_akcja 8)
    (
    (if (= @user-level 2)
      (
        (set #arexx_dest (askdir
                (prompt (#text_rexx_dir #text_rexx_te))
                (help @askdir-help)
                (default "Rexx:")
                 )
        )
      )
      (
        (set #arexx_dest (tackon @default-dest "ARexx"))
      )
    )
    (IF (=(exists #arexx_dest) 0) (makedir #arexx_dest))
    (textfile
      (append #text_rexx_skrypt)
      (append "\n\nORTFILENAME='")
      (append (tackon @default-dest "Ort"))
      (append "'\n\n")
      (include "arexx/TextEditor.rexx")
      (dest (tackon #arexx_dest "TextEditor.rexx"))
    )
    (textfile
      (append #text_rexx_skrypt)
      (append "\n\nORTFILENAME='")
      (append (tackon @default-dest "Ort"))
      (append "'\n\n")
      (include "arexx/TEditorSugeruj.rexx")
      (dest (tackon #arexx_dest "TEditorSugeruj.rexx"))
    )
    )
)
(complete 67)

;Skrypty do FileUtili
(if (bitand #rexx_akcja 16)
    (
    (if (= @user-level 2)
      (
        (set #arexx_dest (askdir
                (prompt (#text_rexx_dir #text_rexx_file))
                (help @askdir-help)
                (default "Rexx:")
                 )
        )
      )
      (
        (set #arexx_dest (tackon @default-dest "ARexx"))
      )
    )
    (IF (=(exists #arexx_dest) 0) (makedir #arexx_dest))
    (textfile
      (append #text_rexx_skrypt)
      (append "\n\nORTFILENAME='")
      (append (tackon @default-dest "Ort"))
      (append "'\n\n")
      (include "arexx/CheckFile.ort")
      (dest (tackon #arexx_dest "CheckFile.ort"))
    )
    )
)
(complete 67)

;Skrypt koïczoncy Orta
(if (bitand #rexx_akcja 32)
    (
    (if (= @user-level 2)
      (
        (set #arexx_dest (askdir
                (prompt (#text_rexx_dir #text_rexx_quit))
                (help @askdir-help)
                (default "Rexx:")
                 )
        )
      )
      (
        (set #arexx_dest (tackon @default-dest "ARexx"))
      )
    )
    (IF (=(exists #arexx_dest) 0) (makedir #arexx_dest))
    (textfile
      (include "arexx/QuitOrt.ort")
      (dest (tackon #arexx_dest "QuitOrt.ort"))
    )
    )
)

(complete 70)
(if (exists (tackon @default-dest "Sîownik"))
  (
    (working #text_dicup)
    (IF (askbool (prompt #text_dicup_que) (help #text_dicup_que_help) (choices "Dodaj automatycznie" "Wygeneruj plik") (default 1))
    (
        (run ("DictJoiner/DictJoiner DODAJ=Sîownik BAZOWY=\"%s\" AUTO >con:40/170/560/100/DictJoiner" (tackon @default-dest "Sîownik")))
    )
    (
        (run ("DictJoiner/DictJoiner DODAJ=Sîownik BAZOWY=\"%s\" NOWE=\"%s\" >con:40/170/560/100/DictJoiner" (tackon @default-dest "Sîownik") (tackon @default-dest "NoweWyrazy.ort")))
        (if (exists (tackon @default-dest "NoweWyrazy.ort"))
        (
            (IF (askbool (prompt #text_addplik) (help #text_addplik_help) (default 1))
            (
               (textfile
                  (append #text_rexx_skrypt)
                  (append "\n\nORTFILENAME='")
                  (append (tackon @default-dest "Ort"))
                  (append "'\n\n")
                  (include "arexx/CheckFile.ort")
                  (append "\nOrt To Back\n")
                  (dest "T:CheckFile.ort")
               )
               (rexx ("T:CheckFile.ort \"%s\"" (tackon @default-dest "NoweWyrazy.ort")))
               (delete "T:CheckFile.ort")
               (user 2)
               (delete (tackon @default-dest "NoweWyrazy.ort") (confirm) (prompt #text_delplik) (help #text_delplik_help))
            )
            )
        )
        )
    )
    )
    (run ("JoinLeftDic DODAJ=Sîownik BAZOWY=%s" (tackon @default-dest "Sîownik")))
  )
  (
    (working #text_dic)
    (copyfiles
      (source "Sîownik")
      (dest (tackon @default-dest "Sîownik"))
      (all)
    )
  )
)
(complete 100)
(exit)